home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / src / cmds / dvips / tfmload.c < prev    next >
Encoding:
C/C++ Source or Header  |  1990-01-05  |  2.7 KB  |  122 lines
  1. /*
  2.  *   Loads a tfm file.  It marks the characters as undefined.
  3.  */
  4. #include "structures.h" /* The copyright notice in that file is included too! */
  5. /*
  6.  *   These are the external routines it calls:
  7.  */
  8. extern void error() ;
  9. extern integer scalewidth() ;
  10. extern FILE *search() ;
  11. /*
  12.  *   Here are the external variables we use:
  13.  */
  14. extern real conv ;
  15. extern real alpha ;
  16. extern char *tfmpath ;
  17. extern char errbuf[] ;
  18. /*
  19.  *   Our static variables:
  20.  */
  21. static FILE *tfmfile ; 
  22. static char name[50] ;
  23.  
  24. /*
  25.  *   Tries to open a tfm file.  Aborts job if unsuccessful.
  26.  */
  27. void
  28. tfmopen(fd)
  29.         register fontdesctype *fd ;
  30. {
  31.    register char *d, *n ;
  32.  
  33.    d = fd->area ;
  34.    n = fd->name ;
  35.    if (*d==0)
  36.       d = tfmpath ;
  37.    (void)sprintf(name, "%s.tfm", n) ;
  38.    if ((tfmfile=search(d, name))==NULL) {
  39.       (void)sprintf(errbuf, "! Can't open font metric file %s%s",
  40.              fd->area, name) ;
  41.       error(errbuf) ;
  42.    }
  43. }
  44.  
  45. shalfword
  46. tfmbyte ()
  47. {
  48.   return(getc(tfmfile)) ;
  49. }
  50.  
  51. halfword
  52. tfm16 ()
  53. {
  54.   register halfword a ; 
  55.   a = tfmbyte () ; 
  56.   return ( a * 256 + tfmbyte () ) ; 
  57. } 
  58.  
  59. integer
  60. tfm32 ()
  61. {
  62.   register integer a ; 
  63.   a = tfm16 () ; 
  64.   if (a > 32767) a -= 65536 ;
  65.   return ( a * 65536 + tfm16 () ) ; 
  66. } 
  67.  
  68. void
  69. tfmload(curfnt)
  70.         register fontdesctype *curfnt ;
  71. {
  72.    register shalfword i ;
  73.    register integer li ;
  74.    integer scaledsize ;
  75.    shalfword nw, hd ;
  76.    shalfword bc, ec ;
  77.    integer scaled[256] ;
  78.    halfword chardat[256] ;
  79.  
  80.    tfmopen(curfnt) ;
  81. /*
  82.  *   Next, we read the font data from the tfm file, and store it in
  83.  *   our own arrays.
  84.  */
  85.    li = tfm16() ; hd = tfm16() ;
  86.    bc = tfm16() ; ec = tfm16() ;
  87.    nw = tfm16() ;
  88.    li = tfm32() ; li = tfm32() ; li = tfm32() ; li = tfm16() ;
  89.    li = tfm32() ;
  90.    if (li && curfnt->checksum)
  91.       if (li!=curfnt->checksum) {
  92.          (void)sprintf(errbuf,"Checksum mismatch in %s", name) ;
  93.          error(errbuf) ;
  94.        }
  95.    li = (integer)(alpha * (real)tfm32()) ;
  96.    if (li > curfnt->designsize + 2 || li < curfnt->designsize - 2) {
  97.       (void)sprintf(errbuf,"Design size mismatch in %s", name) ;
  98.       error(errbuf) ;
  99.    }
  100.    for (i=2; i<hd; i++)
  101.       li = tfm32() ;
  102.    for (i=0; i<256; i++)
  103.       chardat[i] = 256 ;
  104.    for (i=bc; i<=ec; i++) {
  105.       chardat[i] = tfmbyte() ;
  106.       li = tfm16() ;
  107.       li = tfmbyte() ;
  108.    }
  109.    scaledsize = curfnt->scaledsize ;
  110.    for (i=0; i<nw; i++)
  111.       scaled[i] = scalewidth(tfm32(), scaledsize) ;
  112.    (void)fclose(tfmfile) ;
  113.    for (i=0; i<256; i++)
  114.       if (chardat[i]!= 256) {
  115.          li = scaled[chardat[i]] ;
  116.          curfnt->chardesc[i].TFMwidth = li ;
  117.          curfnt->chardesc[i].pixelwidth = ((integer)(conv*li+0.5)) ;
  118.          curfnt->chardesc[i].flags = EXISTS ;
  119.       }
  120.    curfnt->loaded = 1 ;
  121. }
  122.